home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / mac / Ad / Mod02 / Univ / Carter2 / 00006.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  294 b   |  15 lines
  1. on mouseUp
  2.   global gBackPack
  3.   puppetSound("Frrp.S")
  4.   updateStage()
  5.   set index to getOne(gBackPack, #washer1)
  6.   if index <> 0 then
  7.     deleteAt(gBackPack, index)
  8.   end if
  9.   set index to getOne(gBackPack, #washer2)
  10.   if index <> 0 then
  11.     deleteAt(gBackPack, index)
  12.   end if
  13.   go("yes")
  14. end
  15.